Sub Print_Natal_Positions_Longitude()
'v1.06
'longest TextWidth of any planet seems to be 900
'TextWidth of space seems to be 45
    Dim plnam$, t$, x%
    Dim name_width As Double, space_width As Double
    Dim num_spaces As Integer
    Dim temp$
    
    t$ = ""
    space_width = TextWidth(" ")
    
    For x% = 0 To num_planets%
        If chkHelio.Value = 0 And x% = 14 Then GoTo skip1
        If chkHelio.Value = 1 And (x% = 0 Or x% = 1 Or x% = 10 Or x% = 11 Or x% = 12 Or x% = 13) Then GoTo skip1
        
        plnam$ = String(20, 0)
        Call swe_get_planet_name(x%, plnam$)
        
        plnam$ = Left$(set_strlen(plnam$), 10)
        
        name_width = TextWidth(plnam$)
        num_spaces = (900 + (space_width * 3) - name_width) / space_width
        
        t$ = t$ & plnam$ & Space(num_spaces)
        t$ = t$ & PrintSignDataSeconds(Natal(x%))
        temp$ = plnam$ & Space(num_spaces) & PrintSignDataSeconds(Natal(x%))
        
        num_spaces = (2500 + (space_width * 3) - TextWidth(temp$)) / space_width
        t$ = t$ & Space(num_spaces) & Format$(Natal(x%), "0.00000") & "   " & crlf

skip1:
        If x% = 9 Or x% = 14 Or x% = 16 Then t$ = t$ & crlf
    Next x%
    
    natal_planet_positions_longitudes$ = t$
    
    Clipboard.Clear
    Clipboard.SetText natal_planet_positions_longitudes$
    
    If chkHelio.Value = 0 Then
        MsgBox t$, vbInformation, "Natal planet positions - geo longitudes"
    Else
        MsgBox t$, vbInformation, "Natal planet positions - helio longitudes"
    End If
    
    txtResults(0).SetFocus
End Sub

Sub Print_Natal_Positions_Decl_Lat()
'v1.07
'longest TextWidth of any planet seems to be 900
'TextWidth of space seems to be 45
    Dim plnam$, t$, x%
    Dim name_width As Double, space_width As Double
    Dim num_spaces As Integer
    Dim temp$
    
    t$ = ""
    space_width = TextWidth(" ")
    
    For x% = 0 To num_planets%
        If chkHelio.Value = 0 And x% = 14 Then GoTo skip1
        If chkHelio.Value = 1 And (x% = 0 Or x% = 1 Or x% = 10 Or x% = 11 Or x% = 12 Or x% = 13) Then GoTo skip1
        
        plnam$ = String(20, 0)
        Call swe_get_planet_name(x%, plnam$)
        
        plnam$ = Left$(set_strlen(plnam$), 10)
        
        name_width = TextWidth(plnam$)
        num_spaces = (900 + (space_width * 3) - name_width) / space_width
        
        t$ = t$ & plnam$ & Space(num_spaces)
        t$ = t$ & PrintDecl_Lat(Natal_Decl_Lat(x%))
        temp$ = plnam$ & Space(num_spaces) & PrintDecl_Lat(Natal_Decl_Lat(x%))
        
        num_spaces = (2000 + (space_width * 3) - TextWidth(temp$)) / space_width
        t$ = t$ & Space(num_spaces) & Format$(Natal_Decl_Lat(x%), "0.00000") & "   " & crlf

skip1:
        If x% = 9 Or x% = 14 Or x% = 16 Then t$ = t$ & crlf
    Next x%
    
    natal_planet_positions_decl_lat$ = t$
    
    Clipboard.Clear
    Clipboard.SetText natal_planet_positions_decl_lat$
    
    If chkHelio.Value = 0 Then
        MsgBox t$, vbInformation, "Natal planet positions - geo declinations"
    Else
        MsgBox t$, vbInformation, "Natal planet positions - helio latitudes"
    End If
    
    txtResults(0).SetFocus
End Sub


